VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "Attachment"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Option Explicit

'---------------------------------------------------
'<Purpose> attaches extra data to a particular node
'---------------------------------------------------

'<Public>-------------------------------------------
Public NodeType             As Integer
Public DrivePath            As String
Public Session              As Form
'</Public>------------------------------------------

Private Sub Class_Terminate()

    On Error Resume Next
    Unload Session
    Set Session = Nothing
    On Error GoTo 0
    
End Sub
